home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / amiga / Rexx.mod < prev    next >
Encoding:
Modula Implementation  |  1995-01-24  |  793 b   |  36 lines
  1. IMPLEMENTATION MODULE Rexx ;
  2.  
  3. FROM SYSTEM IMPORT STRING ;
  4. IMPORT M2Lib ;
  5.  
  6. PROCEDURE LLOFFSET( rrp : RexxRsrcPtr ) : LONGINT ;
  7. BEGIN RETURN rrp^.rr_Arg1 ;
  8. END LLOFFSET ;
  9.  
  10. PROCEDURE LLVERS( rrp : RexxRsrcPtr ) : LONGINT ;
  11. BEGIN RETURN rrp^.rr_Arg2 ;
  12. END LLVERS ;
  13.  
  14. PROCEDURE CLVALUE( rrp : RexxRsrcPtr ) : STRING ;
  15. BEGIN RETURN STRING( rrp^.rr_Arg1 ) ;
  16. END CLVALUE ;
  17.  
  18. PROCEDURE IVALUE( nsPtr : NexxStrPtr ) : LONGINT ;
  19. BEGIN RETURN nsPtr^.ns_Ivalue ;
  20. END IVALUE ;
  21.  
  22. PROCEDURE ARG0( rmp : RexxMsgPtr) : STRING ;
  23. BEGIN RETURN rmp^.rm_Args[0] ;
  24. END ARG0 ;
  25.  
  26. PROCEDURE ARG1( rmp : RexxMsgPtr ) : STRING ;
  27. BEGIN RETURN rmp^.rm_Args[1] ;
  28. END ARG1 ;
  29.  
  30. PROCEDURE ARG2( rmp : RexxMsgPtr ) : STRING ;
  31. BEGIN RETURN rmp^.rm_Args[2] ;
  32. END ARG2 ;
  33.  
  34. BEGIN RexxSysBase := M2Lib.OpenLib( RXSNAME, VERSION )
  35. END Rexx.
  36.